home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_util / sealit / wizard / foo / frmreg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-01  |  4.4 KB  |  138 lines
  1. VERSION 2.00
  2. Begin Form frmRegister 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Unregsitered Copy"
  6.    ClientHeight    =   3180
  7.    ClientLeft      =   3255
  8.    ClientTop       =   3450
  9.    ClientWidth     =   4815
  10.    Height          =   3555
  11.    Left            =   3210
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3180
  14.    ScaleWidth      =   4815
  15.    Top             =   3120
  16.    Width           =   4905
  17.    Begin CommandButton cmdOK 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "OK"
  20.       Default         =   -1  'True
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "MS Sans Serif"
  24.       FontSize        =   8.25
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   375
  28.       Left            =   1560
  29.       TabIndex        =   6
  30.       Top             =   2640
  31.       Width           =   1455
  32.    End
  33.    Begin TextBox txtCompany 
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   285
  41.       Left            =   360
  42.       MaxLength       =   59
  43.       TabIndex        =   4
  44.       Top             =   1800
  45.       Width           =   3975
  46.    End
  47.    Begin TextBox txtName 
  48.       FontBold        =   0   'False
  49.       FontItalic      =   0   'False
  50.       FontName        =   "MS Sans Serif"
  51.       FontSize        =   8.25
  52.       FontStrikethru  =   0   'False
  53.       FontUnderline   =   0   'False
  54.       Height          =   285
  55.       Left            =   360
  56.       MaxLength       =   39
  57.       TabIndex        =   2
  58.       Top             =   960
  59.       Width           =   3975
  60.    End
  61.    Begin Label Label4 
  62.       Alignment       =   1  'Right Justify
  63.       AutoSize        =   -1  'True
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "foo will expire in 5 days."
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   8.25
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   195
  73.       Left            =   1440
  74.       TabIndex        =   5
  75.       Top             =   2280
  76.       Width           =   1665
  77.    End
  78.    Begin Label Label3 
  79.       Alignment       =   2  'Center
  80.       BackStyle       =   0  'Transparent
  81.       Caption         =   "You are running a unregsitered copy of foo. Please fill out the following information."
  82.       FontBold        =   0   'False
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   8.25
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   375
  89.       Left            =   360
  90.       TabIndex        =   3
  91.       Top             =   120
  92.       Width           =   3255
  93.    End
  94.    Begin Label Label2 
  95.       AutoSize        =   -1  'True
  96.       BackStyle       =   0  'Transparent
  97.       Caption         =   "Company"
  98.       FontBold        =   0   'False
  99.       FontItalic      =   0   'False
  100.       FontName        =   "MS Sans Serif"
  101.       FontSize        =   8.25
  102.       FontStrikethru  =   0   'False
  103.       FontUnderline   =   0   'False
  104.       Height          =   195
  105.       Left            =   240
  106.       TabIndex        =   1
  107.       Top             =   1560
  108.       Width           =   660
  109.    End
  110.    Begin Label Label1 
  111.       AutoSize        =   -1  'True
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Name"
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "MS Sans Serif"
  117.       FontSize        =   8.25
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   195
  121.       Left            =   240
  122.       TabIndex        =   0
  123.       Top             =   720
  124.       Width           =   420
  125.    End
  126. Option Explicit
  127. Sub cmdOK_Click ()
  128.     If Len(Trim$(txtName.Text)) = 0 Or Len(Trim$(txtCompany.Text)) = 0 Then
  129.         MsgBox "Fill in the Name and Company Name fields.", MB_ICONSTOP, "foo"
  130.         Exit Sub
  131.     End If
  132.     SaveInfo
  133. End Sub
  134. Sub Form_Load ()
  135.     'center window
  136.     CenterPopUpWindow Me
  137. End Sub
  138.